home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / dev / obero / oberon_lib.lha / oberon-a / source1.lha / source / Amiga / MathLibrary.mod < prev    next >
Text File  |  1994-08-08  |  2KB  |  62 lines
  1. (**************************************************************************
  2.  
  3.      $RCSfile: MathLibrary.mod $
  4.   Description: Interface to mathieee*.library bases
  5.  
  6.    Created by: fjc (Frank Copeland)
  7.     $Revision: 3.2 $
  8.       $Author: fjc $
  9.         $Date: 1994/08/08 00:45:56 $
  10.  
  11.   $VER: mathlibrary.h 1.6 (13.7.90)
  12.   Includes Release 40.15
  13.  
  14.   (C) Copyright 1985-1993 Commodore-Amiga, Inc.
  15.       All Rights Reserved
  16.  
  17.   Oberon-A interface Copyright © 1994, Frank Copeland.
  18.   This file is part of the Oberon-A Interface.
  19.   See Oberon-A.doc for conditions of use and distribution.
  20.  
  21. ***************************************************************************)
  22.  
  23. MODULE MathLibrary;
  24.  
  25. (*
  26. ** $C- CaseChk       $I- IndexChk  $L+ LongAdr   $N- NilChk
  27. ** $P- PortableCode  $R- RangeChk  $S- StackChk  $T- TypeChk
  28. ** $V- OvflChk       $Z- ZeroVars
  29. *)
  30.  
  31. IMPORT E := Exec;
  32.  
  33. (*
  34. **
  35. **      Data structure returned by OpenLibrary of:
  36. **      mathieeedoubbas.library,mathieeedoubtrans.library
  37. **      mathieeesingbas.library,mathieeesingtrans.library
  38. **
  39. *)
  40.  
  41. TYPE
  42.  
  43.   MathIEEEBasePtr * = CPOINTER TO MathIEEEBase;
  44.   MathIEEEBase * = RECORD (E.Library)
  45.     reserved : ARRAY 18 OF CHAR;
  46.     taskOpenLib * : PROCEDURE () : LONGINT;
  47.     taskCloseLib * : PROCEDURE () : LONGINT;
  48.     (* This structure may be extended in the future *)
  49.   END; (* MathIEEEBase *)
  50.  
  51. (*
  52. * Math resources may need to know when a program opens or closes this
  53. * library. The functions TaskOpenLib and TaskCloseLib are called when
  54. * a task opens or closes this library. They are initialized to point to
  55. * local initialization pertaining to 68881 stuff if 68881 resources
  56. * are found. To override the default the vendor must provide appropriate
  57. * hooks in the MathIEEEResource. If specified, these will be called
  58. * when the library initializes.
  59. *)
  60.  
  61. END MathLibrary.
  62.